home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1997 November / Pcwk1197.iso / LOTUS / Eng-ins / SMASTERS / APPROACH / SURVEY.MPR / SCRIPT / ApproachDoc / Participant Info / Body / ObjButton11.s (.txt) < prev    next >
Null Bytes Alternating  |  1996-12-18  |  3KB  |  62 lines
  1. '++LotusScript Development Environment:2:5:(Options):0:66
  2.  
  3. '++LotusScript Development Environment:2:5:(Forward):0:1
  4. Declare Sub Click(Source As Button, X As Long, Y As Long, Flags As Long)
  5.  
  6. '++LotusScript Development Environment:2:5:(Declarations):0:2
  7.  
  8. '++LotusScript Development Environment:2:2:BindEvents:1:129
  9. Private Sub BindEvents(Byval Objectname_ As String)
  10.     Static Source As BUTTON
  11.     Set Source = Bind(Objectname_)
  12.     On Event Click From Source Call Click
  13. End Sub
  14.  
  15. '++LotusScript Development Environment:2:2:Click:1:12
  16. Sub Click(Source As Button, X As Long, Y As Long, Flags As Long)
  17.     
  18.     Dim FullNameQuestion As String
  19.     Dim FullNameResp As String
  20.     Dim RPQuestion As REPEATINGPANEL
  21.     Dim RPResp As REPEATINGPANEL
  22.     
  23.     Set RPResp=source.parent.Repeatingpanel
  24.     Set RPQuestion=source.parent.Repeatingpanel1
  25.     
  26.     MainTableOfRepPanel FullNameQuestion, RPQuestion
  27.     MainTableOfRepPanel FullNameResp, RPResp
  28.     
  29.     
  30.     Dim CQ As New Connection
  31.     Dim QQ As New Query
  32.     Dim RQ As New ResultSet
  33.     Dim CR As New Connection
  34.     Dim QR As New Query
  35.     Dim RR As New ResultSet
  36.     
  37.     PartID=source.SurveyNum.text
  38.     
  39.     If CQ.ConnectTo("dBASE IV") Then
  40.         Set QQ.Connection = CQ
  41.         QQ.Tablename = FullNameQuestion
  42.         Set RQ.Query = QQ
  43.         If (RQ.Execute) Then
  44.             If CR.ConnectTo("dBASE IV") Then
  45.                 Set QR.Connection = CR
  46.                 QR.Tablename = FullNameResp
  47.                 Set RR.Query = QR
  48.                 If (RR.Execute) Then
  49.                     Do Until RQ.IsEndOfData
  50.                         data =RQ.GETVALUE (1)
  51.                         RR.Addrow
  52.                         RR.Setvalue 1,PartID
  53.                         RR.Setvalue 2,data
  54.                         RR.UPDATEROW
  55.                         RQ.NextRow  
  56.                     Loop
  57.                 End If
  58.             End If
  59.         End If
  60.     End If
  61.     RUNAPPROACHMACRO("Start Questionnaire")
  62. End Sub